0 REM MODIFIED FOR 64 BY STEVE HUGHES
1 SC=0:BL=9:POKE53281,0:POKE53280,2
2 PRINT"[147]                BREAKOUT"
3 GOSUB60000
4 PRINT"[147]DO YOU WANT INSTRUCTIONS (Y=YES,N=NO)  ":INPUTIN$:GOTO1100
5 PP=17:BD=41:BP=1449:S=1024:PM=0:S=54272:POKES+24,15
6 A$="  [182]":B$="[181]"
7 O1=1024:W=0:B5=0
10 PRINT"[147]"
15 PRINT"   ";:FORN=1TO32:PRINT" [146]";:NEXTN:PRINT" "
16 PRINT"   ";:FORN=1TO32:PRINT"[159] [146]";:NEXTN:PRINT" "
25 PRINT"   ";:FORN=1TO32:PRINT"[158][166]";:NEXTN:PRINT" "
26 PRINT"   ";:FORN=1TO32:PRINT"[166]";:NEXTN:PRINT" "
35 PRINT"   ";:FORN=1TO32:PRINT"[129] [146]";:NEXTN:PRINT" "
36 PRINT"   ";:FORN=1TO32:PRINT"[151] [146]";:NEXTN:PRINT" "
45 PRINT"";
46 PRINT"  [185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
48 FORN=1TO23
49 PRINTA$;:PRINTTAB(35);B$
50 NEXTN
65 PRINT""TAB(20)"BALLS-LEFT="BL
67 IFYP<>1GOTO80
70 PRINT""
75 PRINTTAB(PP);" [183][183][183][183] ";
77 GOTO100
80 PRINT"  [163][163][163][163][163][163][163][163][163][163][163][163][163][163][208]    [207][163][163][163][163][163][163][163][163][163][163][163][163][163][163]";
100 IFYP<>1GOTO102:REM MAIN ROUTINE
101 GOSUB200:REM MOVE PADDLE
102 IFW>=96GOTO1000
103 BP=BP+BD
104 IFBP>2023GOTO135
107 PK=PEEK(BP)
109 IFPK=32THENKK=1
110 IFPK=96THENKK=1
111 IFKK=1GOTO114
112 GOSUB300:REM BOUNCE
113 IFPEEK(BP)<>32GOTO103
114 KK=0
115 POKEBO,32
121 POKEBP,81:POKE54272+BP,1
122 BO=BP:IFYP<>1GOTO100
124 IFB5>10GOTO100
125 GOSUB200:REM MOVE PADDLE
130 GOTO100
135 BL=BL-1:GOSUB9000:REM SOUND
136 B5=0
137 PRINT"";"BALLS-LEFT=";BL"[157][157][157]0"
138 POKEBO,32
140 IFBL<=0GOTO800
141 TIM$="000000"
142 IFYP=1THENGOSUB200
143 IFTI<100GOTO142
145 BP=1426+INT(20*RND(1)+1)
150 BD=39+2*INT(RND(1)+.5)
155 GOTO100
200 GETM$
203 IFB5>10GOTO 211
205 IFM$="1"THENPM=-1
206 IFM$="2"THENPM=0
207 IFM$="3"THENPM=+1
210 GOTO216
211 IFM$="1"THENPM=-2
212 IFM$="2"THENPM=+0
213 IFM$="3"THENPM=+2
216 AB=0
220 PP=PP+PM
225 IFPP<=0THENPP=0
230 IFPP>=30THENPP=30
235 PRINT""
236 PRINTTAB(PP);"  [207][163][163][208][160] ";
240 RETURN
300 SC=SC+1
301 POKES+5,96:POKES+6,240:POKES+3,8:POKES+2,45
302 FORZZ=1TO25STEP5
303 POKES,45:POKES+1,ZZ:POKES+4,65
304 NEXTZZ
309 POKES+4,64
310 B5=B5+1
320 IFPK=118GOTO340:REM LT SIDE
324 IFPK=117GOTO360:REM RT SIDE
334 IFPK=79GOTO390:REM PADDLE
335 IFPK=99GOTO390
336 IFPK=80GOTO390
339 GOTO376:REM TOP OR POINTS
340 IFBD<0GOTO350
345 BD=41:BP=BO:GOTO450
350 BD=-39:BP=BO:GOTO450
360 IFBD<0GOTO370
365 BD=39:BP=BO:GOTO450
370 BD=-41:BP=BO:GOTO450
376 IFPK=160GOTO405
377 SC=SC+10
378 IFPK=102GOTO405
379 IFBD=-41GOTO385
380 BD=41:BP=BO:GOTO450
385 BD=39:BP=BO:GOTO450
390 IFPK=79GOTO401
391 IFPK=80GOTO402
393 IFBD=39GOTO400
395 BD=-39:BP=BO:GOTO450
400 BD=-41:BP=BO:GOTO450
401 BD=-41:BP=BO:GOTO450
402 BD=-39:BP=BO:GOTO450
405 SC=SC+10
410 IFBD=-39GOTO420
411 IFBD=-41GOTO425
412 IFBD=39GOTO430
413 BD=-39:GOSUB900
417 GOTO450
420 BD=41:GOSUB900
424 GOTO450
425 BD=39:GOSUB900
428 GOTO450
430 BD=-41:GOSUB 900
434 GOTO450
450 PRINT"SCORE="SC
455 RETURN
800 GETA$:GETA$:GETA$
801 FORZ=1TO3000:NEXTZ:IFYP=0THENSC=0:BL=9:GOTO5:REM A NEW GAME FOR COMPUTER DEMO
802 PRINT""TAB(12)"PLAY AGAIN?";:INPUTY$:SC=0:BL=9
805 IFLEFT$(Y$,1)="Y"GOTO1122
810 END
900 POKEBP+(2*(BP-2*(INT(BP/2))-.50)),32
902 W=W+1
903 POKEBP,32:POKE54272+BP,1
905 BP=BO:RETURN
1000 REM
1020 GOTO5
1100 A=A
1105 IFLEFT$(IN$,1)<>"Y"GOTO1125
1110 PRINT"   USE 1 & 3 TO GO LEFT AND RIGHT":PRINT"   USE 2 TO STOP"
1115 PRINT"PRESS ANY KEY TO CONTINUE"
1120 GETC$:IFC$=""GOTO1120
1122 YP=0
1125 INPUT"DO YOU WANT A PADDLE";P$
1130 IFLEFT$(P$,1)="Y"THENYP=1
1135 GOTO5
9000 POKES+5,96:POKES+6,240
9020 FORQQ=1TO5
9030 FORWW=55TO75STEP10
9040 POKES,23:POKES+1,WW:POKES+4,17
9050 NEXTWW,QQ:POKES+4,16:RETURN
60000 S$="        ":PRINTCHR$(142);
60010 PRINTS$"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]
60020 [153]S$"(null)  TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO  (null)
60030 PRINTS$"[221] [206]                 [205] [221]
60040 [153]S$"(null) FNPET CASSETTE EXCHTHEN (null)
60050 PRINTS$"[221] [165]1929 NORTHPORT DR[167] [221]
60060 [153]S$"(null) FN (null)RIGHT$ ORTANTANTANTANTANTANTAN^ (null)RIGHT$ THEN (null)
60070 PRINTS$"[221] [165] [202][203] [173][192][192][192][192][192][192][192][189] [202][203] [167] [221]
60080 [153]S$"(null) FN     ROOM  6     THEN (null)
60090 PRINTS$"[221] [165]MADISON, WI 53704[167] [221]
60092 [153]S$"(null) LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN (null)
60094 PRINTS$"[221]   [215] [215]          [215] [215]  [221]
60096 [153]S$"MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)
60098 FORQ=1TO999:NEXT:PRINT"[147]":RETURN